home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / asenda1a / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-28  |  1.7 KB  |  65 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "FIND ASCEND"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4095
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4095
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Done"
  14.       Height          =   525
  15.       Left            =   2820
  16.       TabIndex        =   3
  17.       Top             =   2640
  18.       Width           =   1245
  19.    End
  20.    Begin VB.DriveListBox Drive1 
  21.       Height          =   315
  22.       Left            =   30
  23.       TabIndex        =   1
  24.       Top             =   30
  25.       Width           =   2685
  26.    End
  27.    Begin VB.DirListBox Dir1 
  28.       Height          =   2790
  29.       Left            =   30
  30.       TabIndex        =   0
  31.       Top             =   390
  32.       Width           =   2715
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   "Point me to the acsendacy Directory and click the button below."
  36.       Height          =   855
  37.       Left            =   2760
  38.       TabIndex        =   2
  39.       Top             =   60
  40.       Width           =   1320
  41.       WordWrap        =   -1  'True
  42.    End
  43. Attribute VB_Name = "Form2"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Private Sub Command1_Click()
  49. On Error GoTo Errhand
  50. Open Dir1.Path & "\Nougat.lf" For Output As 9
  51. Print #9, ""
  52. Close 9
  53. Unload Form2
  54. Exit Sub
  55. Errhand:
  56. MsgBox "Err you can try to select a diffrent directory. Click OK."
  57. End Sub
  58. Private Sub Drive1_Change()
  59. On Error GoTo handerr
  60. Dir1.Path = Drive1.Drive
  61. Exit Sub
  62. handerr:
  63. Exit Sub
  64. End Sub
  65.